home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 18 Board & Card Games / POKER.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.6 KB  |  184 lines
  1. 10 V$="[168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]":REM ************** DRAW POKER **************
  2. 11 POKE53280,3:POKE53281,1:PRINT"[147]":GOSUB165 
  3. 12 PRINTTAB(14)"DRAW POKER 
  4. 13 [134]T(13),C9(4),S(4,13),M(5),M1(5),C(5),C1(5),R$(15),Q$(12)
  5. 14 [153]"   REVISED FROM THE PUBLIC DOMAIN BY"[166]12)"S C SLOOP-CIS 74366.2252
  6. 15 FORZ=0TO10:READQ$(Z):NEXT:FORZ=1TO14:READR$(Z):NEXT:RESTORE
  7. 16 PRINT"":GOSUB165 :GOSUB166 :GOSUB173 
  8. 17 PRINT"[147]"TAB(10)"SHUFFLING THE CARDS 
  9. 18 [153][163]12)"PLEASE STANDBY"[166]68)"THANK YOU.":[141]166 
  10. 19 [129]X[178]1[164]4:[129]I[178]1[164]13:S(X,I)[178].:[130]:[130]
  11. 20 [153]"LOADSTOPCARDS ARE RESHUFFLED!"
  12. 21 A9[178]5:[153]"ANTE OF $5.00
  13. 22 PRINT"YOU HAVE $";P9:GOSUB166 
  14. 23 FORX=1TO5:GOSUB136:M(X)=C:M1(X)=S:NEXTX:GOSUB151 :PRINT:GOSUB165 
  15. 24 PRINTTAB(9)"  I'LL DEAL MY HAND.  [146]
  16. 25 [129]X[178]1[164]5:[141]136:C(X)[178]C:C1(X)[178]S:[130]
  17. 26 [141]159 :C1[178]T:C2[178]H9:P1[178][171]5
  18. 27 [153][163]8)"OPEN WITH A BET  $";:[133]B$
  19. 28 B[178][181]([197](B$)):[139]B[178].[167][153][163]8)"PLEASE":[137]27 
  20. 29 [139][187](0)[179].4[167]32 
  21. 30 [139][181](((T[172][187](0))[170]1)[170]((H9[172][187](0))[170]1)[170](T[172]10))[179]B[171](B[173]7)[167]63 
  22. 31 [129]Z[178]1[164]2000:[130]
  23. 32 A9[178]A9[170]B:[153]"    MMMMMMMM !  ";:[141]166 
  24. 33 [153]"OK, I'LL ACCEPT.
  25. 34 PRINT"HOW MANY CARDS TO REPLACE";:INPUTK9$:IFK9$=CHR$(13)THEN42 
  26. 35 K9=INT(VAL(K9$)):IFK9=.THEN42 
  27. 36 FORX=1TOK9
  28. 37 PRINT"CARD NUMBER";:INPUTT9$:::::T9=INT(VAL(T9$)):GOSUB136
  29. 38 IFT9=.THEN40 
  30. 39 IFT9<6THEN41 
  31. 40 PRINT" ENTER CARD NUMBER FROM 1 TO 5.":GOTO37 
  32. 41 M(T9)=C:M1(T9)=S:NEXT:GOSUB151 
  33. 42 GOSUB158 :FORX=1TO5:T(M(X))=T(M(X))+1:C9(M1(X))=C9(M1(X))+1
  34. 43 NEXT:GOSUB97 :P1=T:GOSUB133:P2=H9
  35. 44 PRINT:GOSUB159 :H9=.:IFT>3THEN49 
  36. 45 FORZ=1TO5:IFH9=3THEN48 
  37. 46 IFT(C(Z))<>1THEN48 
  38. 47 H9=H9+1:GOSUB136:C(Z)=C:C1(Z)=S
  39. 48 NEXT
  40. 49 PRINT:PRINTTAB(9)"[144]  I'LL TAKE "H9"[157]  CARDS.  ":H8=H9
  41. 50 GOSUB159 :C1=T:GOSUB133:C2=H9
  42. 51 B9=INT((C1*RND(0))+(C2*RND(0))+(C1*10))+INT(A9/3)+((K9-H8)*2)+7
  43. 52 B1=.:PRINT
  44. 53 IFRND(0)<C1*.5THEN55 
  45. 54 B9=99.99
  46. 55 PRINT"     HOW MUCH DO YOU BET ";:INPUTB$
  47. 56 IFB$=CHR$(13)THENB=0:GOTO59 
  48. 57 B=INT(VAL(B$)):IFB=0THEN59 
  49. 58 A9=A9+B1
  50. 59 IFB=0THENPRINTTAB(12)"CALL":GOSUB166 :GOSUB70 :GOTO81 
  51. 60 IFA9+B<B9THEN68 
  52. 61 IFA9+B<B9+(B9/2)THEN66 
  53. 62 IFB9=99.99THEN66 
  54. 63 PRINT"MMMMMMMMM !  ";:GOSUB166 
  55. 64 PRINT"     I FOLD!!!":GOSUB166 
  56. 65 GOSUB70 :GOTO89 
  57. 66 PRINTTAB(8)"I CALL YOU!":GOSUB166 
  58. 67 A9=A9+B:GOSUB70 :GOTO81 
  59. 68 B1=INT(((B9-A9)/3)*RND(0))+2:A9=A9+B:GOSUB166 
  60. 69 PRINTTAB(9)"[144]  I'LL RAISE YOU  $";B1;"[157]   ":GOTO55 
  61. 70 GOSUB181 
  62. 71 PRINT:PRINT"I HAD ";:T=C1:PRINT"[144]";Q$(T);"
  63. 72 [139]T[177].99[167]74 
  64. 73 [153]:[137]75 
  65. 74 [153]" HIGH CARD WAS A STOP";:C[178]C2:[153]R$(C);"
  66. 75 IFP1=-5THEN80 
  67. 76 PRINT:PRINT"YOU HAD ";:T=P1:PRINT"[144]";Q$(T);"
  68. 77 [139]T[177].99[167]79 
  69. 78 [153]:[153]:[142]
  70. 79 [153]"HIGH CARD WAS A STOP";:C[178]P2:[153]R$(C);"
  71. 80 RETURN
  72. 81 IFC1=P1THEN84 
  73. 82 IFC1<P1THEN89 
  74. 83 GOTO88 
  75. 84 IFC2=P2THEN87 
  76. 85 IFC2<P2THEN89 
  77. 86 GOTO88 
  78. 87 PRINT"IT WAS A TIE!!!":GOTO90 
  79. 88 PRINTTAB(9)"  I WON $";A9;"[157]  ":P9=P9-A9:GOTO90 
  80. 89 PRINTTAB(9)"  YOU WON $";A9;"[157]  ":P9=P9+A9
  81. 90 PRINTTAB(28)"Y[145][145]
  82. 91 [153][163]12)"AGAIN? ( Y/N )";:[133]B$:[139]B$[178]"Y"[167]19 
  83. 92 [153]:[139]P9[179].[167]96 
  84. 93 [139]P9[178][177]101[167]95 
  85. 94 [153]"LOAD"[163]8)" YOU LEFT LOSING $";100[171]P9:[141]168 :[137]161 
  86. 95 [153]"LOADSTOPCONGRATULATIONS, YOU LEFT WITH $"P9:[141]168 :[137]161 
  87. 96 [153]"LOAD"[163]8)"YOU OWE ME $";[171]P9:[141]168 :[137]161 
  88. 97 T[178].:[129]I[178]1[164]4:[139]C9(I)[179][177]5[167]99 
  89. 98 T[178]5
  90. 99 [130]:I[178]2:H9[178].
  91. 100 I[178]I[171]1:[139]I[179][177]0[167]102
  92. 101 I[178]13
  93. 102 [139]T(I)[179]1[167]100
  94. 103 H9[178]1
  95. 104 [139]I[179][177]1[167]106
  96. 105 I[178]14
  97. 106 Z[178]I[171]4
  98. 107 I[178]I[171]1:[139]T(I)[179][177]1[167]112
  99. 108 [139]Z[179][177]1[167]107
  100. 109 T[178]T[170]4:[139]Z[179][177]10[167]112
  101. 110 [139]T[178]4[167]23 
  102. 111 T[178]T[170]1
  103. 112 [139]I[178]13[167]100
  104. 113 [139]T[179][177]5[167]116
  105. 114 [139]T(1)[179][177]1[167]116
  106. 115 H9[178]1
  107. 116 [139]T[178].[167]118
  108. 117 [142]
  109. 118 [129]I[178]1[164]13:[139]T(I)[179][177]4[167]120
  110. 119 T[178]7
  111. 120 [139]T(I)[179][177]3[167]122
  112. 121 T[178]T[170]5:H9[178]I
  113. 122 [139]T(I)[179][177]2[167]130
  114. 123 [139]T[178]5[167]129
  115. 124 [139]T[179][177].[167]126
  116. 125 H9[178].
  117. 126 [139]H9[178]1[167]129
  118. 127 [139]H9[177]I[167]129
  119. 128 H9[178]I
  120. 129 T[178]T[170]1
  121. 130 [130]
  122. 131 [139]T[179][177]5[167]135
  123. 132 T[178]3:[142]
  124. 133 [139]H9[179][177]1[167]135
  125. 134 H9[178]14
  126. 135 [142]
  127. 136 S[178][181](4[172][187](0))[170]1:C[178][181](13[172][187](0))[170]1
  128. 137 [139]S(S,C)[178]1[167]136
  129. 138 S(S,C)[178]1:[142]
  130. 139 [141]167 
  131. 140 [139]C[178]1[167][153]" A";:[142]
  132. 141 [139]C[178]11[167][153]" J";:[142]
  133. 142 [139]C[178]12[167][153]" Q";:[142]
  134. 143 [139]C[178]13[167][153]" K";:[142]
  135. 144 [139]C[178]14[167][153]" A";:[142]
  136. 145 [139]C[178]10[167][153]"CMD";C;"CMD";:[142]
  137. 146 [153]C;"CMD";:[142]
  138. 147 [139]S[178]1[167][153]"DEF(null)STOP";:[142]
  139. 148 [139]S[178]2[167][153]"STOPATN";:[142]
  140. 149 [139]S[178]3[167][153]"DEF(null)STOP";:[142]
  141. 150 [153]"STOP(null)";:[142]
  142. 151 [153]"LOAD"[163]9)"STOP  HERE IS YOUR HAND:  WAIT
  143. 152 PRINTTAB(8)"1     2     3     4     5
  144. 153 [153][163]6)"(null)USRUSRUSR(null) (null)USRUSRUSR(null) (null)USRUSRUSR(null) (null)USRUSRUSR(null) (null)USRUSRUSR(null)
  145. 154 PRINT"    ";
  146. 155 FORX=1TO5
  147. 156 C=M(X):S=M1(X):PRINT"   ";:GOSUB139:GOSUB147 
  148. 157 NEXT:RETURN
  149. 158 FORX=1TO4:C9(X)=.:NEXT:FORX=1TO13:T(X)=.:NEXT:RETURN
  150. 159 GOSUB158 :FORX=1TO5:T(C(X))=T(C(X))+1
  151. 160 C9(C1(X))=C9(C1(X))+1:NEXT:GOSUB97 :RETURN
  152. 161 POKE53280,254:GOSUB168 :PRINT"[147]";TAB(12)"BYE-BYE !
  153. 162 [151]53281,246:[141]168 :[153]"LOADCONT":[128]
  154. 163 [153]:[153]"I HAD ";:T[178]C1:[141]820
  155. 164 [153]"HIGH CARD WAS STOP";:C[178]C2:[141]139:[141]147 :[153]:[142]
  156. 165 [153]V$[170]V$:[142]
  157. 166 [129]Z[178]1[164]1000:[130]:[142]
  158. 167 [129]Z[178]1[164] 300:[130]:[142]
  159. 168 [129]Z[178]1[164]3000:[130]:[142]
  160. 169 [153][163]7)"HIT ANY KEY TO START GAME!
  161. 170 PRINTTAB(7)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][144]"
  162. 171 GETZ$:IFZ$=""THEN171 
  163. 172 RETURN
  164. 173 PRINT"[147]"TAB(10)"[144]  GAME RULES   ":P9=100
  165. 174 PRINT" 1. DEALER IS INDEPENDENT OF YOUR HAND.     IT IS BLOCKED FROM HIM.
  166. 175 [153]" 2. DEALER MAY RAISE, CALL OR FOLD ON       HIS HAND.
  167. 176 PRINT" 3. DEALERS ACTIONS AS IN REAL POKER        DEPEND ON YOUR BLUFFS,";
  168. 177 PRINT" BETS, AMOUNT      OF CARDS TAKEN, AND RAISES.
  169. 178 [153]" 4. YOU MAY DRAW UP TO FOUR CARDS.
  170. 179 PRINT" 5. ON BETTING, BET A ZERO (0) TO CALL.
  171. 180 [153]" 6. BET A NEGATIVE (-) NUMBER TO FOLD.":[141]169 :[142]
  172. 181 [153]"LOAD"[163]12)"  MY HAND:  ":[153]:[153]"   ";
  173. 182 C[178]C(1):[141]140:S[178]C1(1):[141]147 :[153]"   ";
  174. 183 C[178]C(2):[141]140:S[178]C1(2):[141]147 :[153]"   ";
  175. 184 C[178]C(3):[141]140:S[178]C1(3):[141]147 :[153]"   ";
  176. 185 C[178]C(4):[141]140:S[178]C1(4):[141]147 :[153]"   ";
  177. 186 C[178]C(5):[141]140:S[178]C1(5):[141]147 :[153]"   ";:[153]:[141]165 
  178. 187 [153][163]12)"STOP  YOUR HAND: WAIT
  179. 188 GOSUB155 :PRINT:GOSUB165 :RETURN
  180. 189 DATANOTHING,ONE PAIR,TWO PAIR,3 OF A KIND,STRAIGHT,FLUSH,FULL HOUSE
  181. 190 DATA4 OF A KIND,X,STRAIGHT FLUSH,ROYAL FLUSH ! !,ACE,DUECE,3,4,5,6
  182. 191 DATA7,8,9,10,JACK,QUEEN,KING,ACE
  183. 0 
  184.